home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
batchut
/
bat.zip
/
SERIAL.BAT
< prev
next >
Wrap
DOS Batch File
|
1985-02-03
|
2KB
|
65 lines
bat skip 19
For Seaware extended batch processor:
Disk format and serial numbering program 2/4/84 Ward Christensen
Execute via:
serial name number
to start formatting and serializing disks.
Ex: serial wards 100
results in a serial number of "WARDS #0100"
(always right justifies the # in the 11 digit vol ser)
NOTE: use of esc strings in "FORMATTED" line - for Ansi.sys
NOTE: designed for (1) DOS 2.0 ANSI.SYS,
and
double sided 9 track diskettes (362496 per diskette -
(see that value hard coded below in check for proper formatting).
bat *
bat if .%2 = . goto -help
bat %N = %2
bat %1= %1%S%S%S%S%S $ 1 5
bat -loop %L = %1%S#
bat if %N < 10 %L = %L0
bat if %N < 100 %L = %L0
bat if %N < 1000 %L = %L0
bat %L = %L%N
bat begtype
mount diskette to be \1b[7m FORMATTED \1b[0m in drive B:
end
bat type serial will be %L ;
bat inkey press Y or space to format %K
bat if %K = y goto -format
bat if %K = key020 goto -format
bat if %K <> Y goto -end
bat -format stack g;
bat stack %L
bat stack n;
bat cls
format B: /v %3
bat readscrn
bat readscrn
bat readscrn
bat readscrn %9
bat if %9 = 362496 goto -next
bat -bad beep
bat type disk had errors - not 362496 bytes free
bat inkey (R)etry, (N)ext, (Q)uit %K
bat if %K = R goto -loop
bat if %K = r goto -loop
bat if %K = Q goto -end
bat if %K = q goto -end
bat if %K = N goto -next
bat if %K <> n goto -bad
bat -next * going to next diskette
bat %N = %N + 1
bat goto -loop
bat -help begtype
Format is: serial <name> <number>
ex: serial wards 100
end
bat -end stack.purge